home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 401-425 / disk_418 / moduladefs / mathlib0.def < prev    next >
Text File  |  1992-05-06  |  518b  |  21 lines
  1. (****************************************
  2.  * Name : MathLib0.DEF                  *
  3.  * purpose : math functions for use     *
  4.  *           with modula-2  SIN COS TAN *
  5.  * Author : JSG                         *
  6.  ****************************************)
  7.  
  8. DEFINITION MODULE MathLib0;
  9.  
  10. PROCEDURE SQRT(x:REAL) : REAL;
  11.  
  12. PROCEDURE SIN(x:REAL;VAR neg: BOOLEAN)  : REAL;  (* x : radiens *)
  13. PROCEDURE COS(x:REAL;VAR neg: BOOLEAN)  : REAL;  (* x : radiens *)
  14. PROCEDURE TAN(x:REAL)  : REAL;  (* x : radiens *)
  15.  
  16. END MathLib0.
  17.  
  18.  
  19.  
  20.  
  21.